﻿Imports System.Data.SqlClient

Public Class clsConfiguraciones
    Private mCod_Suc As Int32
    Private mNom_Suc As String
    Private mGanancia As Decimal
    Private mDescuent_Empresas As Decimal
    Private mInteres_Servicio_Express As Decimal

    '/////////////////////////////////////////////////////////
    '/ Propiedades
    '/////////////////////////////////////////////////////////

    Public Property Cod_Suc() As Int32
        Get
            Return mCod_Suc
        End Get
        Set(ByVal value As Int32)
            If value > 0 And value < 2000000000 Then
                mCod_Suc = value
            Else
                Throw New Exception("No se puede utilizar el código de sucursal. el código debe ser mayor a cero (0).")
            End If
        End Set
    End Property

    Public Property Nom_Suc() As String
        Get
            Return mNom_Suc
        End Get
        Set(ByVal value As String)
            mNom_Suc = value.Trim.ToUpper
        End Set
    End Property
    Public Property Ganancia() As Decimal
        Get
            Return mGanancia
        End Get
        Set(ByVal value As Decimal)
            If value > 0 Then
                mGanancia = value
            Else
                Throw New Exception("No se puede utilizar el monto de ganancia. La ganancia debe ser mayor a cero (0).")
            End If
        End Set
    End Property

    Public Property Descuent_Empresas() As Decimal
        Get
            Return mDescuent_Empresas
        End Get
        Set(ByVal value As Decimal)
            If value > 0 Then
                mDescuent_Empresas = value
            Else
                Throw New Exception("No se puede utilizar el monto de descuento. El descuento debe ser mayor a cero (0).")
            End If
        End Set
    End Property
    Public Property Interes_Servicio_Express() As Decimal
        Get
            Return mInteres_Servicio_Express
        End Get
        Set(ByVal value As Decimal)
            If value > 0 Then
                mInteres_Servicio_Express = value
            Else
                Throw New Exception("No se puede utilizar el valor de interés. El interés debe ser mayor a cero (0).")
            End If
        End Set
    End Property
    '/////////////////////////////////////////////////////////
    '/ Métodos de la Clase
    '/////////////////////////////////////////////////////////

    '---------------------------------------------------------------------
    ' Constructor de la Clase
    '---------------------------------------------------------------------
    Public Sub New()

        MyBase.New()

    End Sub
    '---------------------------------------------------------------------
    ' Destructor de la Clase
    '---------------------------------------------------------------------
    Public Sub Dispose()

        MyBase.Finalize()

    End Sub
End Class
